home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / DIMPLE / Install Files / IOL / Sobel.IOL < prev    next >
Text File  |  1997-02-25  |  342b  |  19 lines
  1. !DIMPLE IOL PROGRAM
  2. ! Edge detection using the Sobel operator
  3.  
  4. images
  5.   x input ;
  6.   d1 temp ;
  7.   d2 temp ;
  8.   y "Sobel" output ;
  9. operations
  10.   d1 = filter x ( 1, 2, 1,
  11.                   0, 0, 0,
  12.                  -1, -2, -1 ) ;
  13.  
  14.   d2 = filter x (-1, 0, 1,
  15.                  -2, 0, 2,
  16.                  -1, 0, 1 ) ;
  17.  
  18.   y = sqrt( d1*d1 + d2*d2) ;
  19.